gwave2-20090213/0000777000076400007640000000000011145200513010154 500000000000000gwave2-20090213/src/0000777000076400007640000000000011145200513010743 500000000000000gwave2-20090213/src/guile-compat.h0000664000076400007640000000245710754501450013441 00000000000000/* $Id: guile-compat.h,v 1.5 2002/01/10 04:04:26 sgt Exp $ */ /* * Copyright (C) 1997-1999, Maciej Stachowiak and Greg J. Badros * * 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.GPL. If not, write to * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, * Boston, MA 02111-1307 USA * */ #ifndef GUILE_COMPAT_H #define GUILE_COMPAT_H #ifdef HAVE_CONFIG_H #include #endif #ifdef __cplusplus extern "C" { #endif #define DEREF_LAST_STACK scm_fluid_ref(SCM_VARIABLE_REF (scm_the_last_stack_fluid_var)) SCM make_output_strport(char *fname); extern char *safe_scm_to_stringn (SCM str, size_t *lenp); #endif /* GUILE_COMPAT_H */ /* Local Variables: */ /* tab-width: 8 */ /* c-basic-offset: 2 */ /* End: */ /* vim:ts=8:sw=2:sta */ gwave2-20090213/src/gtkmisc.h0000664000076400007640000000154410745271604012515 00000000000000/* * prototypes for routines in gtkmisc.c * * $Log: gtkmisc.h,v $ * Revision 1.2 2000/01/07 06:33:43 tell * Merged in the guile and guile-gtk stuff * * Revision 1.1 1998/08/31 21:00:57 tell * Initial revision * */ extern GtkWidget *create_menu(char *label, GtkWidget *parent); extern GtkWidget *create_menuitem(char *label, GtkWidget *parent, GtkSignalFunc action, gpointer p); /* create icon-window from xpm file */ extern GtkWidget *shape_create_icon (char *xpm_file, gint x, gint y, gint px, gint py, gint window_type); /* create icon-window from xpm data in char array */ extern GtkWidget *shape_create_icon_d (char **xpm_data, gint x, gint y, gint px, gint py, gint window_type); gwave2-20090213/src/gwave.gtkrc0000664000076400007640000000246510745270655013060 00000000000000# # gtkrc for experimental wave viewer # # # style [= ] # { #