From mboxrd@z Thu Jan  1 00:00:00 1970
From: David Pirotte <david@altosw.be>
To: guile-gtk <guile-gtk@sourceware.cygnus.com>
Subject: per-user Gnome directory 'problem'
Date: Mon, 23 Apr 2001 03:03:00 -0000
Message-id: <3AE40C48.AE141D27@altosw.be>
X-SW-Source: 2001-q2/msg00023.html

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))

    ))