conservatory
/
elk
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* Fixed xwidgets.scm to work with xm.so. 

git-svn-id: svn://svn.zoy.org/elk/trunk@70 55e467fa-43c5-0310-a8a2-de718669efc6
This commit is contained in:
sam 2003-09-02 23:37:49 +00:00
parent af3ee62078
commit 4ed72c9e6f
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scm/xwidgets.scm
View File

@ -15,7 +15,8 @@
(define widget-aliases #f)
(define (widget-loaded? w)
(feature? (string->symbol (format #f "~a:~a.so" widget-subdirectory w))))
;;(feature? (string->symbol (format #f "~a:~a.so" widget-subdirectory w))))
(feature? (string->symbol (format #f "~a:~a.so" widget-subdirectory widget-subdirectory))))
(define-macro (load-widgets . w)
(let ((wl '()) (l '()))
@ -44,9 +45,10 @@
(if alias (set! file (cdr alias)))
(if autoload-notify?
(format #t "~a~a" file (if (null? (cdr f)) "" " ")))
;; XXX: don't load all widgets, they're all in the same lib
;;(set! wl (cons (format #f "~a/~a.so" widget-subdirectory file)
(set! wl (cons (format #f "~a/~a.so" widget-subdirectory widget-subdirectory)
wl))))
;; wl))))
(set! wl (list (format #f "~a/~a.so" widget-subdirectory widget-subdirectory)))))
(if autoload-notify? (format #t "]~%"))
`(fluid-let ((load-libraries
(if (feature? 'motif)