Rename to Rolladeck
This commit is contained in:
parent
496f4572e4
commit
4732daf1e7
|
@ -121,12 +121,12 @@
|
||||||
(qt:widget (window-contents)))
|
(qt:widget (window-contents)))
|
||||||
|
|
||||||
|
|
||||||
;; Return the UI’s XML, read from “contacts.ui”.
|
;; Return the UI’s XML, read from “rolladeck.ui”.
|
||||||
;; We could generate this XML ourselves, and write a nice s-expr front-end,
|
;; We could generate this XML ourselves, and write a nice s-expr front-end,
|
||||||
;; maybe… `o`
|
;; maybe… `o`
|
||||||
(define (window-contents)
|
(define (window-contents)
|
||||||
(call-with-input-file
|
(call-with-input-file
|
||||||
"rolladecks.ui"
|
"rolladeck.ui"
|
||||||
(lambda (in-port) (read-string #f in-port))))
|
(lambda (in-port) (read-string #f in-port))))
|
||||||
|
|
||||||
|
|
Ŝarĝante…
Reference in New Issue