This is the mail archive of the
guile-gtk@sources.redhat.com
mailing list for the Guile project.
per-user Gnome directory 'problem'
- To: guile-gtk <guile-gtk at sourceware dot cygnus dot com>
- Subject: per-user Gnome directory 'problem'
- From: David Pirotte <david at altosw dot be>
- Date: Mon, 23 Apr 2001 13:04:40 +0200
- Organization: Alto Sotware (http://www.altosw.be)
Hi,
I have compiled installed:
gnome-guile-0.20
and have a little problem using it:
guile> (use-modules (alto pays-glade))
guile> (pays-gui)
Gnome-ERROR **: Could not create per-user Gnome directory </usr/alto/staff/david/.gnome> - aborting
aborting...
Abandon
david@faust:/usr/local/share/guile/alto 13 $
I already have a .gnome directory:
david@faust:/usr/alto/staff 5 $ cd david/
david@faust:~ 6 $ la -ld .gnome
1 drwxrwxr-x 3 david alto 1024 avr 16 12:51 .gnome
david@faust:~ 7 $
Here is the pays-glade module content:
;; #!/usr/local/bin/guile -s
;; !#
(define-module (alto pays-glade)
;; from distribution
;; :use-module (ice-9 format)
:use-module (gnome gnome)
:use-module (gtk gtk)
:use-module (gtk libglade)
;; from alto
:use-module (alto gtk-utils)
:use-module (alto db-utils)
:use-module (alto db-pays)
)
(export *pays-toplevel*
pays-gui
)
(define *pays-toplevel* nil)
(define (pays-gui)
(gnome-init-hack "pays-gui" #f '())
(glade-gnome-init)
(let* ((xml (glade-xml-new "/usr/alto/projects/glade/tpalm/clients.glade"))
(window (glade-xml-get-widget xml "codep-gtk"))
)
(glade-xml-signal-autoconnect xml)
(set! *pays-toplevel* window)
(gtk-widget-show-all window)
;; (gtk-standalone-main window))
))