"@GUILE@" and "Segmentation fault"
Wolfkin Chiang <[email protected]> Thu, 5 Jun 2014 13:46:16 +0800
| Newsgroups | gmane.lisp.guile.gtk |
|---|---|
| Message-ID | <CA+-KJ==ADPH1EcLONfJ8_8kutyfQJA68GHTi+SCsRRGn7b7AfA@mail.gmail.com> |
--===============7116708578130547602==
Content-Type: multipart/alternative; boundary=001a11340c866c863a04fb1043fe
--001a11340c866c863a04fb1043fe
Content-Type: text/plain; charset=ISO-8859-1
Hi, All,
I am trying guile-gnome, I have encountered some problem, please help me.
1,
I typed command as
$ guile-gnome-2 -s /usr/share/doc/guile-gnome2-gtk/examples/hello.scm
It tells me
/usr/bin/guile-gnome-2: 58: exec: @GUILE@: not found
and
I do
# dpkg-reconfigure guile-gnome2-glib
I got the same reply.
And
$ nl -i 1 -ba /usr/bin/guile-gnome-2
1 #! /bin/sh
2
3 # Copyright (C) 2004, 2012 Free Software Foundation, Inc.
4 # Public domain.
5 # Written by Andy Wingo for guile-gnome.
6
7 # The purpose of this script is twofold. First, it serves to find
8 # `guile' in the load path instead of statically "linking" to
9 # /usr/bin/guile. Second, it will set up the guile load path and the
10 # library path such that using guile-gnome modules will Just Work.
This
11 # is necessary because we might choose to break the application
12 # interfaces in the future, so we need to allow for parallel
installs.
13
14 # Note that the proper way to make a script that will use this as the
15 # interpreter is as follows, removing `# ' on each line:
16
17 # #! /bin/sh
18 # exec guile-gnome -s $0 "$@"
19 # !#
20
21 # This will allow the shell to find `guile-gnome' in the path.
22
23 # Hack around guile-1.6's lack of /usr/local paths in its load-dir.
24 # (Otherwise a user looking for g-wrap / guile-lib installed in
25 # /usr/local will be unpleasantly surprised.)
26
localpath=/usr/local/share/guile/site:/usr/local/share/guile/1.6:/usr/local/share/guile
27
28 if test "x$GUILE_LOAD_PATH" = "x"; then
29 GUILE_LOAD_PATH="/usr/share/guile-gnome-2":$localpath
30 else
31 # Because GUILE_LOAD_PATH is essentially a user customization, allow
32 # it to have precedence over $localpath.
33
GUILE_LOAD_PATH="/usr/share/guile-gnome-2":$GUILE_LOAD_PATH:$localpath
34 fi
35
36 # Probably will always be necessary to resolve libguile-gnome-gobject
37 # link.
38 if test /usr/lib != /usr/lib -a /usr/lib != /usr/local/lib; then
39 if test "x$LD_LIBRARY_PATH" = "x"; then
40 LD_LIBRARY_PATH=/usr/lib
41 else
42 LD_LIBRARY_PATH=/usr/lib:$LD_LIBRARY_PATH
43 fi
44 fi
45
46 # Can be removed after g-wrap is fixed.
47 if test "x$LD_LIBRARY_PATH" = "x"; then
48 LD_LIBRARY_PATH=/usr/lib/guile-gnome-2
49 else
50 LD_LIBRARY_PATH=/usr/lib/guile-gnome-2:$LD_LIBRARY_PATH
51 fi
52
53 export GUILE_LOAD_PATH LD_LIBRARY_PATH
54
55 # Taken from autoconf.info, "Portable Shell"
56 case $# in
57 0) exec @GUILE@;;
58 *) exec @GUILE@ "$@";;
59 esac
I wonder why @GUILE@ is appering in here.
I installed guile-gnome by
# apt-get install ...
2,
I do
$ sed 's#@GUILE@#/usr/bin/guile#' /usr/bin/guile-gnome-2 > guile-gnome-2
and do
$ ./guile-gnome-2 -s /usr/share/doc/guile-gnome2-gtk/examples/hello.scm
and it tells
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;; or pass the --no-auto-compile argument to disable.
;;; compiling /usr/share/doc/guile-gnome2-gtk/examples/hello.scm
;;; compiling /usr/share/guile-gnome-2/gnome/gobject.scm
Segmentation fault
I wonder why it can not work.
The source file is
$ nl -i 1 -ba /usr/share/doc/guile-gnome2-gtk/examples/hello.scm
1 #! /bin/sh
2 # -*- scheme -*-
3 exec guile-gnome-2 -s $0 "$@"
4 !#
5 ;; guile-gnome
6 ;; Copyright (C) 2003,2004 Free Software Foundation, Inc.
7
8 ;; This program is free software; you can redistribute it and/or
9 ;; modify it under the terms of the GNU General Public License as
10 ;; published by the Free Software Foundation; either version 2 of
11 ;; the License, or (at your option) any later version.
12 ;;
13 ;; This program is distributed in the hope that it will be useful,
14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 ;; GNU General Public License for more details.
17 ;;
18 ;; You should have received a copy of the GNU General Public License
19 ;; along with this program; if not, contact:
20 ;;
21 ;; Free Software Foundation Voice: +1-617-542-5942
22 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652
23 ;; Boston, MA 02111-1307, USA [email protected]
24
25
26 (use-modules (oop goops) (gnome gobject) (gnome gtk))
27
28 ;; define the hello as a function -- there are many other ways to do
this,
29 ;; of course...
30 (define (hello)
31 ;; we can make new widgets just like we make goops objects -- there
is
32 ;; a corresponding goops class for every GType we know about. the
33 ;; arguments to make, after the class, are interpreted as properties
34 ;; to set. in this case we make a toplevel window and a button with
35 ;; the label, "Hello, World!".
36 (let* ((window (make <gtk-window> #:type 'toplevel))
37 (button (make <gtk-button> #:label "Hello, World!")))
38
39 ;; there are scheme functions corresponding to all of the c
ones...
40 ;; and of course we don't have to cast anything.
41 (gtk-container-set-border-width window 10)
42 (gtk-container-add window button)
43
44 ;; and of course you can attach a lambda to a signal :-)
45 (gtype-instance-signal-connect button 'clicked (lambda (b)
(gtk-main-quit)))
46
47 (gtk-widget-show-all window)
48
49 ;; this will block until gtk-main-quit is called...
50 (gtk-main)))
51
52 ;; meaning this blocks until the button is clicked.
53 (hello)
This file is installed by
# apt-get install ...
3,
BTW, the system is
$ uanme -a
Linux wolfkin 3.14-1-amd64 #1 SMP Debian 3.14.4-1 (2014-05-13) x86_64
GNU/Linux
Regards,
Wolfkin
--001a11340c866c863a04fb1043fe
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
<div dir=3D"ltr"><div>Hi, All,<br></div><div><br></div><div>I am trying gui=
le-gnome, I have encountered some problem, please help me.</div><div><br></=
div><div>1,</div><div>I typed command as</div><div>=A0 =A0$ guile-gnome-2 -=
s /usr/share/doc/guile-gnome2-gtk/examples/hello.scm</div>
<div>It tells me</div><div>=A0 =A0/usr/bin/guile-gnome-2: 58: exec: @GUILE@=
: not found</div><div>and</div><div>I do</div><div>=A0 =A0# dpkg-reconfigur=
e guile-gnome2-glib</div><div>I got the same reply.</div><div>And</div><div=
>=A0 =A0$ nl -i 1 -ba /usr/bin/guile-gnome-2</div>
<div>=A0 =A0 =A01<span class=3D"" style=3D"white-space:pre"> </span>#! /bin=
/sh</div><div>=A0 =A0 =A02<span class=3D"" style=3D"white-space:pre"> </spa=
n></div><div>=A0 =A0 =A03<span class=3D"" style=3D"white-space:pre"> </span=
># Copyright (C) 2004, 2012 Free Software Foundation, Inc.</div>
<div>=A0 =A0 =A04<span class=3D"" style=3D"white-space:pre"> </span># Publi=
c domain.</div><div>=A0 =A0 =A05<span class=3D"" style=3D"white-space:pre">=
</span># Written by Andy Wingo for guile-gnome.</div><div>=A0 =A0 =A06<spa=
n class=3D"" style=3D"white-space:pre"> </span></div>
<div>=A0 =A0 =A07<span class=3D"" style=3D"white-space:pre"> </span># The p=
urpose of this script is twofold. First, it serves to find</div><div>=A0 =
=A0 =A08<span class=3D"" style=3D"white-space:pre"> </span># `guile' in=
the load path instead of statically "linking" to</div>
<div>=A0 =A0 =A09<span class=3D"" style=3D"white-space:pre"> </span># /usr/=
bin/guile. Second, it will set up the guile load path and the</div><div>=A0=
=A0 10<span class=3D"" style=3D"white-space:pre"> </span># library path su=
ch that using guile-gnome modules will Just Work. This</div>
<div>=A0 =A0 11<span class=3D"" style=3D"white-space:pre"> </span># is nece=
ssary because we might choose to break the application</div><div>=A0 =A0 12=
<span class=3D"" style=3D"white-space:pre"> </span># interfaces in the futu=
re, so we need to allow for parallel installs.</div>
<div>=A0 =A0 13<span class=3D"" style=3D"white-space:pre"> </span></div><di=
v>=A0 =A0 14<span class=3D"" style=3D"white-space:pre"> </span># Note that =
the proper way to make a script that will use this as the</div><div>=A0 =A0=
15<span class=3D"" style=3D"white-space:pre"> </span># interpreter is as f=
ollows, removing `# ' on each line:</div>
<div>=A0 =A0 16<span class=3D"" style=3D"white-space:pre"> </span></div><di=
v>=A0 =A0 17<span class=3D"" style=3D"white-space:pre"> </span># #! /bin/sh=
</div><div>=A0 =A0 18<span class=3D"" style=3D"white-space:pre"> </span># e=
xec guile-gnome -s $0 "$@"</div>
<div>=A0 =A0 19<span class=3D"" style=3D"white-space:pre"> </span># !#</div=
><div>=A0 =A0 20<span class=3D"" style=3D"white-space:pre"> </span></div><d=
iv>=A0 =A0 21<span class=3D"" style=3D"white-space:pre"> </span># This will=
allow the shell to find `guile-gnome' in the path.</div>
<div>=A0 =A0 22<span class=3D"" style=3D"white-space:pre"> </span></div><di=
v>=A0 =A0 23<span class=3D"" style=3D"white-space:pre"> </span># Hack aroun=
d guile-1.6's lack of /usr/local paths in its load-dir.</div><div>=A0 =
=A0 24<span class=3D"" style=3D"white-space:pre"> </span># (Otherwise a use=
r looking for g-wrap / guile-lib installed in</div>
<div>=A0 =A0 25<span class=3D"" style=3D"white-space:pre"> </span># /usr/lo=
cal will be unpleasantly surprised.)</div><div>=A0 =A0 26<span class=3D"" s=
tyle=3D"white-space:pre"> </span>localpath=3D/usr/local/share/guile/site:/u=
sr/local/share/guile/1.6:/usr/local/share/guile</div>
<div>=A0 =A0 27<span class=3D"" style=3D"white-space:pre"> </span></div><di=
v>=A0 =A0 28<span class=3D"" style=3D"white-space:pre"> </span>if test &quo=
t;x$GUILE_LOAD_PATH" =3D "x"; then</div><div>=A0 =A0 29<span=
class=3D"" style=3D"white-space:pre"> </span> =A0GUILE_LOAD_PATH=3D"/=
usr/share/guile-gnome-2":$localpath</div>
<div>=A0 =A0 30<span class=3D"" style=3D"white-space:pre"> </span>else</div=
><div>=A0 =A0 31<span class=3D"" style=3D"white-space:pre"> </span> =A0# Be=
cause GUILE_LOAD_PATH is essentially a user customization, allow</div><div>=
=A0 =A0 32<span class=3D"" style=3D"white-space:pre"> </span> =A0# it to ha=
ve precedence over $localpath.</div>
<div>=A0 =A0 33<span class=3D"" style=3D"white-space:pre"> </span> =A0GUILE=
_LOAD_PATH=3D"/usr/share/guile-gnome-2":$GUILE_LOAD_PATH:$localpa=
th</div><div>=A0 =A0 34<span class=3D"" style=3D"white-space:pre"> </span>f=
i</div><div>=A0 =A0 35<span class=3D"" style=3D"white-space:pre"> </span></=
div>
<div>=A0 =A0 36<span class=3D"" style=3D"white-space:pre"> </span># Probabl=
y will always be necessary to resolve libguile-gnome-gobject</div><div>=A0 =
=A0 37<span class=3D"" style=3D"white-space:pre"> </span># link.</div><div>=
=A0 =A0 38<span class=3D"" style=3D"white-space:pre"> </span>if test /usr/l=
ib !=3D /usr/lib -a /usr/lib !=3D /usr/local/lib; then</div>
<div>=A0 =A0 39<span class=3D"" style=3D"white-space:pre"> </span> =A0if te=
st "x$LD_LIBRARY_PATH" =3D "x"; then</div><div>=A0 =A0 =
40<span class=3D"" style=3D"white-space:pre"> </span> =A0 =A0LD_LIBRARY_PAT=
H=3D/usr/lib</div><div>
=A0 =A0 41<span class=3D"" style=3D"white-space:pre"> </span> =A0else</div>=
<div>=A0 =A0 42<span class=3D"" style=3D"white-space:pre"> </span> =A0 =A0L=
D_LIBRARY_PATH=3D/usr/lib:$LD_LIBRARY_PATH</div><div>=A0 =A0 43<span class=
=3D"" style=3D"white-space:pre"> </span> =A0fi</div>
<div>=A0 =A0 44<span class=3D"" style=3D"white-space:pre"> </span>fi</div><=
div>=A0 =A0 45<span class=3D"" style=3D"white-space:pre"> </span></div><div=
>=A0 =A0 46<span class=3D"" style=3D"white-space:pre"> </span># Can be remo=
ved after g-wrap is fixed.</div>
<div>=A0 =A0 47<span class=3D"" style=3D"white-space:pre"> </span>if test &=
quot;x$LD_LIBRARY_PATH" =3D "x"; then</div><div>=A0 =A0 48<s=
pan class=3D"" style=3D"white-space:pre"> </span> =A0LD_LIBRARY_PATH=3D/usr=
/lib/guile-gnome-2</div>
<div>=A0 =A0 49<span class=3D"" style=3D"white-space:pre"> </span>else</div=
><div>=A0 =A0 50<span class=3D"" style=3D"white-space:pre"> </span> =A0LD_L=
IBRARY_PATH=3D/usr/lib/guile-gnome-2:$LD_LIBRARY_PATH</div><div>=A0 =A0 51<=
span class=3D"" style=3D"white-space:pre"> </span>fi</div>
<div>=A0 =A0 52<span class=3D"" style=3D"white-space:pre"> </span></div><di=
v>=A0 =A0 53<span class=3D"" style=3D"white-space:pre"> </span>export GUILE=
_LOAD_PATH LD_LIBRARY_PATH</div><div>=A0 =A0 54<span class=3D"" style=3D"wh=
ite-space:pre"> </span></div>
<div>=A0 =A0 55<span class=3D"" style=3D"white-space:pre"> </span># Taken f=
rom <a href=3D"http://autoconf.info">autoconf.info</a>, "Portable Shel=
l"</div><div>=A0 =A0 56<span class=3D"" style=3D"white-space:pre"> </s=
pan>case $# in</div>
<div>=A0 =A0 57<span class=3D"" style=3D"white-space:pre"> </span>0) exec @=
GUILE@;;</div><div>=A0 =A0 58<span class=3D"" style=3D"white-space:pre"> </=
span>*) exec @GUILE@ "$@";;</div><div>=A0 =A0 59<span class=3D"" =
style=3D"white-space:pre"> </span>esac</div>
<div>I wonder why @GUILE@ is appering in here.</div><div>I installed guile-=
gnome by</div><div>=A0 =A0# apt-get install ...</div><div><br></div><div>2,=
</div><div>I do</div><div>=A0 =A0$ sed 's#@GUILE@#/usr/bin/guile#' =
/usr/bin/guile-gnome-2 > guile-gnome-2=A0</div>
<div>and do</div><div>=A0 =A0$ ./guile-gnome-2 -s /usr/share/doc/guile-gnom=
e2-gtk/examples/hello.scm</div><div>and it tells</div><div>=A0 =A0 =A0;;; n=
ote: auto-compilation is enabled, set GUILE_AUTO_COMPILE=3D0</div><div>=A0 =
=A0 =A0;;; =A0 =A0 =A0 or pass the --no-auto-compile argument to disable.</=
div>
<div>=A0 =A0 =A0;;; compiling /usr/share/doc/guile-gnome2-gtk/examples/hell=
o.scm</div><div>=A0 =A0 =A0;;; compiling /usr/share/guile-gnome-2/gnome/gob=
ject.scm</div><div>=A0 =A0 =A0Segmentation fault</div><div>I wonder why it =
can not work.</div>
<div>The source file is</div><div>=A0 =A0$ nl -i 1 -ba /usr/share/doc/guile=
-gnome2-gtk/examples/hello.scm</div><div>=A0 =A0 =A01<span class=3D"" style=
=3D"white-space:pre"> </span>#! /bin/sh</div><div>=A0 =A0 =A02<span class=
=3D"" style=3D"white-space:pre"> </span># -*- scheme -*-</div>
<div>=A0 =A0 =A03<span class=3D"" style=3D"white-space:pre"> </span>exec gu=
ile-gnome-2 -s $0 "$@"</div><div>=A0 =A0 =A04<span class=3D"" sty=
le=3D"white-space:pre"> </span>!#</div><div>=A0 =A0 =A05<span class=3D"" st=
yle=3D"white-space:pre"> </span>;; guile-gnome</div>
<div>=A0 =A0 =A06<span class=3D"" style=3D"white-space:pre"> </span>;; Copy=
right (C) 2003,2004 Free Software Foundation, Inc.</div><div>=A0 =A0 =A07<s=
pan class=3D"" style=3D"white-space:pre"> </span></div><div>=A0 =A0 =A08<sp=
an class=3D"" style=3D"white-space:pre"> </span>;; This program is free sof=
tware; you can redistribute it and/or =A0 =A0</div>
<div>=A0 =A0 =A09<span class=3D"" style=3D"white-space:pre"> </span>;; modi=
fy it under the terms of the GNU General Public License as =A0=A0</div><div=
>=A0 =A0 10<span class=3D"" style=3D"white-space:pre"> </span>;; published =
by the Free Software Foundation; either version 2 of =A0=A0</div>
<div>=A0 =A0 11<span class=3D"" style=3D"white-space:pre"> </span>;; the Li=
cense, or (at your option) any later version. =A0 =A0 =A0 =A0 =A0 =A0 =A0</=
div><div>=A0 =A0 12<span class=3D"" style=3D"white-space:pre"> </span>;; =
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0=
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0</div>
<div>=A0 =A0 13<span class=3D"" style=3D"white-space:pre"> </span>;; This p=
rogram is distributed in the hope that it will be useful, =A0</div><div>=A0=
=A0 14<span class=3D"" style=3D"white-space:pre"> </span>;; but WITHOUT AN=
Y WARRANTY; without even the implied warranty of =A0=A0</div>
<div>=A0 =A0 15<span class=3D"" style=3D"white-space:pre"> </span>;; MERCHA=
NTABILITY or FITNESS FOR A PARTICULAR PURPOSE. =A0See the =A0 =A0</div><div=
>=A0 =A0 16<span class=3D"" style=3D"white-space:pre"> </span>;; GNU Genera=
l Public License for more details. =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0=
=A0</div>
<div>=A0 =A0 17<span class=3D"" style=3D"white-space:pre"> </span>;; =A0 =
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0=
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0</div><div>=A0 =A0 18<s=
pan class=3D"" style=3D"white-space:pre"> </span>;; You should have receive=
d a copy of the GNU General Public License</div>
<div>=A0 =A0 19<span class=3D"" style=3D"white-space:pre"> </span>;; along =
with this program; if not, contact:</div><div>=A0 =A0 20<span class=3D"" st=
yle=3D"white-space:pre"> </span>;;</div><div>=A0 =A0 21<span class=3D"" sty=
le=3D"white-space:pre"> </span>;; Free Software Foundation =A0 =A0 =A0 =A0 =
=A0 Voice: =A0+1-617-542-5942</div>
<div>=A0 =A0 22<span class=3D"" style=3D"white-space:pre"> </span>;; 59 Tem=
ple Place - Suite 330 =A0 =A0 =A0 =A0Fax: =A0 =A0+1-617-542-2652</div><div>=
=A0 =A0 23<span class=3D"" style=3D"white-space:pre"> </span>;; Boston, MA =
=A002111-1307, =A0USA =A0 =A0 =A0 <a href=3D"mailto:[email protected]">[email protected]=
g</a></div>
<div>=A0 =A0 24<span class=3D"" style=3D"white-space:pre"> </span></div><di=
v>=A0 =A0 25<span class=3D"" style=3D"white-space:pre"> </span></div><div>=
=A0 =A0 26<span class=3D"" style=3D"white-space:pre"> </span>(use-modules (=
oop goops) (gnome gobject) (gnome gtk))</div>
<div>=A0 =A0 27<span class=3D"" style=3D"white-space:pre"> </span></div><di=
v>=A0 =A0 28<span class=3D"" style=3D"white-space:pre"> </span>;; define th=
e hello as a function -- there are many other ways to do this,</div><div>=
=A0 =A0 29<span class=3D"" style=3D"white-space:pre"> </span>;; of course..=
.</div>
<div>=A0 =A0 30<span class=3D"" style=3D"white-space:pre"> </span>(define (=
hello)</div><div>=A0 =A0 31<span class=3D"" style=3D"white-space:pre"> </sp=
an> =A0;; we can make new widgets just like we make goops objects -- there =
is</div><div>=A0 =A0 32<span class=3D"" style=3D"white-space:pre"> </span> =
=A0;; a corresponding goops class for every GType we know about. the</div>
<div>=A0 =A0 33<span class=3D"" style=3D"white-space:pre"> </span> =A0;; ar=
guments to make, after the class, are interpreted as properties</div><div>=
=A0 =A0 34<span class=3D"" style=3D"white-space:pre"> </span> =A0;; to set.=
in this case we make a toplevel window and a button with</div>
<div>=A0 =A0 35<span class=3D"" style=3D"white-space:pre"> </span> =A0;; th=
e label, "Hello, World!".</div><div>=A0 =A0 36<span class=3D"" st=
yle=3D"white-space:pre"> </span> =A0(let* ((window (make <gtk-window>=
#:type 'toplevel))</div>
<div>=A0 =A0 37<span class=3D"" style=3D"white-space:pre"> </span> (button=
(make <gtk-button> #:label "Hello, World!")))</div><div>=
=A0 =A0 38<span class=3D"" style=3D"white-space:pre"> </span></div><div>=A0=
=A0 39<span class=3D"" style=3D"white-space:pre"> </span> =A0 =A0;; there =
are scheme functions corresponding to all of the c ones...</div>
<div>=A0 =A0 40<span class=3D"" style=3D"white-space:pre"> </span> =A0 =A0;=
; and of course we don't have to cast anything.</div><div>=A0 =A0 41<sp=
an class=3D"" style=3D"white-space:pre"> </span> =A0 =A0(gtk-container-set-=
border-width window 10)</div>
<div>=A0 =A0 42<span class=3D"" style=3D"white-space:pre"> </span> =A0 =A0(=
gtk-container-add window button)</div><div>=A0 =A0 43<span class=3D"" style=
=3D"white-space:pre"> </span> =A0 =A0</div><div>=A0 =A0 44<span class=3D"" =
style=3D"white-space:pre"> </span> =A0 =A0;; and of course you can attach a=
lambda to a signal :-)</div>
<div>=A0 =A0 45<span class=3D"" style=3D"white-space:pre"> </span> =A0 =A0(=
gtype-instance-signal-connect button 'clicked (lambda (b) (gtk-main-qui=
t)))</div><div>=A0 =A0 46<span class=3D"" style=3D"white-space:pre"> </span=
></div><div>=A0 =A0 47<span class=3D"" style=3D"white-space:pre"> </span> =
=A0 =A0(gtk-widget-show-all window)</div>
<div>=A0 =A0 48<span class=3D"" style=3D"white-space:pre"> </span></div><di=
v>=A0 =A0 49<span class=3D"" style=3D"white-space:pre"> </span> =A0 =A0;; t=
his will block until gtk-main-quit is called...</div><div>=A0 =A0 50<span c=
lass=3D"" style=3D"white-space:pre"> </span> =A0 =A0(gtk-main)))</div>
<div>=A0 =A0 51<span class=3D"" style=3D"white-space:pre"> </span></div><di=
v>=A0 =A0 52<span class=3D"" style=3D"white-space:pre"> </span>;; meaning t=
his blocks until the button is clicked.</div><div>=A0 =A0 53<span class=3D"=
" style=3D"white-space:pre"> </span>(hello)</div>
<div>This file is installed by</div><div>=A0 =A0# apt-get install ...</div>=
<div><br></div><div>3,</div><div>BTW, the system is</div><div>$ uanme -a</d=
iv><div>Linux wolfkin 3.14-1-amd64 #1 SMP Debian 3.14.4-1 (2014-05-13) x86_=
64 GNU/Linux</div>
<div><br></div><div>Regards,</div><div>Wolfkin</div><div><br></div></div>
--001a11340c866c863a04fb1043fe--
--===============7116708578130547602==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
_______________________________________________
guile-gtk-general mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/guile-gtk-general
--===============7116708578130547602==--